<%
	Dim conn
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.ConnectionString="Provider=SQLOLEDB;Server=KUDO\SQLKUDO;Database=ShoesShop;uid=sa;pwd=123456"
	if conn.State=0 then
		conn.Open()
	End if
%>